home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / popupre / menucont.frm < prev    next >
Text File  |  1995-03-03  |  2KB  |  76 lines
  1. VERSION 2.00
  2. Begin Form frmMenuContainer 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Invisible Menu Container"
  5.    ClientHeight    =   750
  6.    ClientLeft      =   1905
  7.    ClientTop       =   4470
  8.    ClientWidth     =   6585
  9.    Height          =   1440
  10.    Left            =   1845
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   750
  13.    ScaleWidth      =   6585
  14.    Top             =   3840
  15.    Visible         =   0   'False
  16.    Width           =   6705
  17.    Begin Menu mnuPopUpMDIParent 
  18.       Caption         =   "PopUpMDIParent"
  19.       Begin Menu mniPopUpMDIParent 
  20.          Caption         =   "Show MDI Child Window "
  21.          Index           =   0
  22.       End
  23.       Begin Menu mniPopUpMDIParent 
  24.          Caption         =   "Show Modal Child Window "
  25.          Index           =   1
  26.       End
  27.       Begin Menu mniPopUpMDIParent 
  28.          Caption         =   "-"
  29.          Index           =   2
  30.       End
  31.       Begin Menu mniPopUpMDIParent 
  32.          Caption         =   "Exit"
  33.          Index           =   3
  34.       End
  35.    End
  36.    Begin Menu mnuPopUpChild 
  37.       Caption         =   "PopUpChild"
  38.       Begin Menu mniPopUpChild 
  39.          Caption         =   "New"
  40.          Index           =   0
  41.       End
  42.       Begin Menu mniPopUpChild 
  43.          Caption         =   "Open..."
  44.          Index           =   1
  45.       End
  46.       Begin Menu mniPopUpChild 
  47.          Caption         =   "Save..."
  48.          Index           =   2
  49.       End
  50.       Begin Menu mniPopUpChild 
  51.          Caption         =   "Close"
  52.          Index           =   3
  53.       End
  54.    End
  55. End
  56. Option Explicit
  57.  
  58. Sub mniPopUpChild_Click (Index As Integer)
  59.  
  60.     ' Set the index of the clicked child popup menu entry
  61.     ' to the 'menu click' label of the child window and
  62.     ' trigger its 'Change' event
  63.     Screen.ActiveForm!lblMenuClick = CStr(Index)
  64.  
  65. End Sub
  66.  
  67. Sub mniPopUpMDIParent_Click (Index As Integer)
  68.  
  69.     ' Set the index of the clicked MDI parent popup menu entry
  70.     ' to the 'menu click' label of the MDI parent window and
  71.     ' trigger its 'Change' event
  72.     frmMDIParent!lblMenuClick = CStr(Index)
  73.  
  74. End Sub
  75.  
  76.